﻿Namespace FL_8x0.FL_800.Model
    Public Class ResultModel

        Public Sub New()
            _timers = New List(Of String)
            For i = 0 To 6
                _timers.Add("")
            Next
        End Sub

        Private _no As Short
        Public Property No() As Short
            Get
                Return _no
            End Get
            Set(ByVal value As Short)
                _no = value
            End Set
        End Property

        Private _group As String
        Public Property Group() As String
            Get
                Return _group
            End Get
            Set(ByVal value As String)
                _group = value
            End Set
        End Property

        Private _dateTime As Date
        Public Property DateTime() As Date
            Get
                Return _dateTime
            End Get
            Set(ByVal value As Date)
                _dateTime = value
            End Set
        End Property

        Private _timers As List(Of String)
        Public Property Timers() As List(Of String)
            Get
                Return _timers
            End Get
            Set(ByVal value As List(Of String))
                _timers = value
            End Set
        End Property

        Private _sdet As Double
        Public Property Sdet() As Double
            Get
                Return _sdet
            End Get
            Set(ByVal value As Double)
                _sdet = value
            End Set
        End Property

        Private _ldet As String
        Public Property Ldet() As String
            Get
                Return _ldet
            End Get
            Set(ByVal value As String)
                _ldet = value
            End Set
        End Property

        Private _unit As String
        Public Property Unit() As String
            Get
                Return _unit
            End Get
            Set(ByVal value As String)
                _unit = value
            End Set
        End Property

        Private _judgment As String
        Public Property Judgment() As String
            Get
                Return _judgment
            End Get
            Set(ByVal value As String)
                _judgment = value
            End Set
        End Property


    End Class
End Namespace